﻿Public Class Character
    Inherits Creatures

    Private _Classe As Integer
    Private _Level As Integer
    Private _Sex As Integer
    Private _PK As Integer

    Public Property Level As Integer
        Get
            Return _Level
        End Get
        Set(ByVal value As Integer)
            _Level = value
        End Set
    End Property

    Public Property Classe As Integer
        Get
            Return _Classe
        End Get
        Set(ByVal value As Integer)
            _Classe = value
        End Set
    End Property

    Public Property PK As Integer
        Get
            Return _PK
        End Get
        Set(ByVal value As Integer)
            _PK = value
        End Set
    End Property

    Public Property Sex As Integer
        Get
            Return _Sex
        End Get
        Set(ByVal value As Integer)
            _Sex = value
        End Set
    End Property

    Public Property NumMap As Integer
        Get
            Return _NumMap
        End Get
        Set(ByVal value As Integer)
            _NumMap = value
        End Set
    End Property

    Public Property PosX As Integer
        Get
            Return _PosX
        End Get
        Set(ByVal value As Integer)
            _PosX = value
        End Set
    End Property

    Public Property PosY As Integer
        Get
            Return _PosY
        End Get
        Set(ByVal value As Integer)
            _PosY = value
        End Set
    End Property



End Class
